home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -seriously_amiga- / sound / euterpe / install < prev    next >
Text File  |  1998-06-18  |  23KB  |  800 lines
  1. ; -------------------------------------------------------------------------
  2. ; Euterpe Installation script
  3. ; ===========================
  4. ;
  5. ;$VER: Install 1.18 (27.5.98)
  6. ; -------------------------------------------------------------------------
  7.  
  8. (complete 0)
  9.  
  10. ; -------------------------------------------------------------------------
  11. ; default msgs setting
  12. ; -------------------------------------------------------------------------
  13.  
  14. (set #introduction
  15. (cat "\n\nInstallation of Euterpe.\n"
  16. ))
  17.  
  18. (set #quel-disque
  19. (cat "Where do you want to install Euterpe\n(A drawer will be created) ?"
  20. ))
  21.  
  22. (set #quel-disque-aide
  23. (cat "Select the drawer or volume where the installation should be made."
  24. ))
  25. (set #oui-prompt
  26. (cat "Installation of OBJECT USER INTERFACE catalog files."
  27. ))
  28. (set #asyncio-prompt
  29. (cat "Installation of AsyncIO.library."
  30. ))
  31.  
  32. (set #startup-prompt
  33. (cat "Adding Assign Euterpe: in user-startup."
  34. ))
  35.  
  36. (set #fix-error-asyncio
  37. (cat "Fixing previous incorrect installation of AsyncIO.library."
  38. ))
  39.  
  40. (set #docs-msg
  41. (cat "Do you want to install the docs files ?"
  42. ))
  43.  
  44. (set #docs-help
  45. (cat "The docs files are produced by a conversion of the guide files and "
  46.      "are ANSI text files.\n"
  47.      "Select \"Yes\" if your version of amigaguide is unable to display "
  48.      "the help or if you want to print the doc."
  49. ))
  50. (set #developer-msg
  51. (cat "Do you want to install the developer files ?"
  52. ))
  53. (set #developer-help
  54. (cat "The developer files are provided for people interested in the development of XApps."
  55. ))
  56.  
  57. (set #camd-default
  58. (cat "Do you want to use camd.library for MIDI accesses ?"
  59. ))
  60. (set #camd-help
  61. (cat "Installer has recognised the camd.library (Midi support routines).\n"
  62.      "Select \"Yes\" if you want to use it by default.\n"
  63.      "Select \"No\" if you want to use a serial device.\n"
  64.      "Note that this is only of interest for the default settings.\n"
  65.      "Midi instruments settings are independent from this choice.\n"
  66. ))
  67.  
  68. (set #ahi-default
  69. (cat "Do you want to use ahi.device for AUDIO ?"
  70. ))
  71. (set #ahi-help
  72. (cat "Installer has recognised the ahi.device (Audio support routines).\n"
  73.      "Select \"Yes\" if you want to use it by default.\n"
  74.      "Select \"No\" if you don't want to use audio.\n"
  75.      "Since it is strongly recommended to activate this option,\n"
  76.      "you might want to disable it if your system is running out of memory.\n"
  77. ))
  78.  
  79.  
  80. (set #help-sel
  81. (cat "Select one or more languages for the online help."
  82. ))
  83.  
  84. (set #doc-sel
  85. (cat "Select one or more languages for the doc files."
  86. ))
  87.  
  88. (set #msg-mkdir
  89. (cat "Creating directory structure."
  90. ))
  91.  
  92. (set #prg-sel
  93. (cat "Select the executable files wanted."
  94. ))
  95.  
  96. (set #prg-help
  97. (cat "If you are not a registered user, you may only choose Euterpe.\n"
  98.      "Other choices are optimized versions of Euterpe."
  99. ))
  100.  
  101. (set #metro-msg
  102. (cat "Install the example voice metronome files ?"
  103. ))
  104.  
  105. (set #metro-help
  106. (cat "For demonstrating how to use the metronome instruments one example "
  107.      "is provided which count the beats with human voice.\n"
  108.      "Select \"Yes\" if you are interested."
  109. ))
  110.  
  111. (set #rexx-msg
  112. (cat "Select the additional REXX scripts to install."
  113. ))
  114.  
  115. (set #rexx-help
  116. (cat "The scripts needed by Euterpe are already installed. "
  117.      "You can choose here other scripts provided as examples."
  118. ))
  119.  
  120. (set #cat-sel
  121. (cat "Select one or more languages for the catalogs."
  122. ))
  123. (set #cat-msg
  124. (cat "Do you wish to install the translator files ?"
  125. ))
  126. (set #cat-help
  127. (cat "These files are not necessary for using Euterpe but are needed by translators."
  128. ))
  129.  
  130. ; -------------------------------------------------------------------------
  131. ; french msgs setting
  132. ; -------------------------------------------------------------------------
  133.  
  134. (if (= @language "français")
  135. (
  136. (set #introduction
  137. (cat "\n\nInstallation d'Euterpe.\n"
  138. ))
  139.  
  140. (set #quel-disque
  141. (cat "Où voulez-vous installer Euterpe\n(Un répertoire sera créé) ?"
  142. ))
  143.  
  144. (set #quel-disque-aide
  145. (cat "Sélectionnez le disque ou répertoire où l'installation doit être effectuée."
  146. ))
  147.  
  148. (set #oui-prompt
  149. (cat "Installation des catalogues pour l'interface OUI."
  150. ))
  151.  
  152. (set #asyncio-prompt
  153. (cat "Installation de l'AsyncIO.library."
  154. ))
  155.  
  156. (set #startup-prompt
  157. (cat "Ajout de l'assignation Euterpe: dans le fichier user-startup."
  158. ))
  159.  
  160. (set #fix-error-asyncio
  161. (cat "Correction d'une installation précédente erronée de l'AsyncIO.library."
  162. ))
  163.  
  164. (set #docs-msg
  165. (cat "Voulez-vous installer la documentation ?"
  166. ))
  167. (set #docs-help
  168. (cat "La documentation est une conversion du fichier d'aide au "
  169.      "format texte ANSI.\n"
  170.      "Choisissez \"Oui\" si votre version d'amigaguide est incapable "
  171.      "d'afficher l'aide en ligne ou bien si vous désirez "
  172.      "imprimer la documentation."
  173. ))
  174. (set #developer-msg
  175. (cat "Voulez-vous installer les fichiers développeurs ?"
  176. ))
  177. (set #developer-help
  178. (cat "Les fichiers développeurs sont nécessaire à ceux qui sont intéressés par la conception de XApps."
  179. ))
  180.  
  181. (set #camd-default
  182. (cat "Voulez-vous utiliser la camd.library pour vos accès MIDI ?"
  183. ))
  184. (set #camd-help
  185. (cat "Installer a détecté la présence de la camd.library (routines de support MIDI).\n"
  186.      "Choisissez \"Oui\" pour que les accès Midi par défaut l'utilisent.\n"
  187.      "Choisissez \"Non\" pour que vos accès par défaut utilisent un serial.device.\n"
  188.      "Remarquez que ceci ne concerne que les accès par défaut.\n"
  189.      "Les instruments Midi peuvent être réglés indépendamment de ce choix.\n"
  190. ))
  191.  
  192. (set #ahi-default
  193. (cat "Voulez vous utiliser le gestionnaire AHI pour l'AUDIO ?"
  194. ))
  195. (set #ahi-help
  196. (cat "Installer a détecté le fichier ahi.device (routines de support Audio).\n"
  197.      "Choisissez \"Oui\" pour l'utiliser par défaut.\n"
  198.      "Choisissez \"Non\" si vous ne voulez pas utiliser l'audio.\n"
  199.      "Bien qu'il soit fortement recommandé d'activer cette option,\n"
  200.      "Vous pouvez vouloir la désactiver si votre système manque de mémoire.\n"
  201. ))
  202.  
  203. (set #help-sel
  204. (cat "Sélectionnez une ou plusieurs langues pour l'aide en ligne."
  205. ))
  206.  
  207. (set #doc-sel
  208. (cat "Sélectionnez une ou plusieurs langues pour la documentation."
  209. ))
  210.  
  211. (set #msg-mkdir
  212. (cat "Création de l'arborescence des répertoires."
  213. ))
  214. (set #prg-sel
  215. (cat "Sélectionnez les fichiers exécutables désirés\n"
  216. ))
  217.  
  218. (set #prg-help
  219. (cat "Si vous n'êtes pas un utilisateur enregistré, seul le programme "
  220.      "Euterpe sera utilisable.\n"
  221.      "Les autres choix correspondent à des versions optimisées du logiciel."
  222. ))
  223.  
  224. (set #metro-msg
  225. (cat "Installation des fichiers du métronome vocal ?"
  226. ))
  227.  
  228. (set #metro-help
  229. (cat "Pour vous montrer comment utiliser les instruments métronome, "
  230.      "un exemple est fourni qui compte les temps avec la voix.\n"
  231.      "Sélectionnez \"Oui\" si vous êtes intéressé."
  232. ))
  233.  
  234. (set #rexx-msg
  235. (cat "Sélectionnez les scripts REXX additionnels à installer."
  236. ))
  237.  
  238. (set #rexx-help
  239. (cat "Les scripts utilisés par Euterpe sont séjà installés. "
  240.      "Vous pouvez choisir ici des scripts additionnels fournis comme exemples."
  241. ))
  242.  
  243. (set #cat-sel
  244. (cat "Sélectionnez une ou plusieurs langues pour les catalogues."
  245. ))
  246. (set #cat-msg
  247. (cat "Voulez-vous installer les fichiers traducteur ?"
  248. ))
  249. (set #cat-help
  250. (cat "Ces fichiers ne sont pas nécessaires pour l'utilisation d'Euterpe mais "
  251.      "sont utiles aux traducteurs."
  252. ))
  253. ))
  254.  
  255. ; -------------------------------------------------------------------------
  256. ; german msgs setting
  257. ; -------------------------------------------------------------------------
  258.  
  259. (if (= @language "deutsch")
  260. (
  261. (set #introduction
  262. (cat "\n\nInstallation von Euterpe.\n"
  263. ))
  264.  
  265. (set #quel-disque
  266. (cat "Wohin möchtest du Euterpe installieren\n(Ein Verzeichnis wird erstellt) ?"
  267. ))
  268.  
  269. (set #quel-disque-aide
  270. (cat "Wähle eine Schublade oder ein Laufwerk für die Installation."
  271. ))
  272. (set #oui-prompt
  273. (cat "Installation der OBJECT USER INTERFACE Kataloge."
  274. ))
  275. (set #asyncio-prompt
  276. (cat "Installation der AsyncIO.library."
  277. ))
  278.  
  279. (set #startup-prompt
  280. (cat "Assign Euterpe: wird in die user-startup aufgenommen."
  281. ))
  282.  
  283. (set #fix-error-asyncio
  284. (cat "Frühere fehlerhafte Installation der AsyncIO.library wird bereinigt."
  285. ))
  286.  
  287. (set #docs-msg
  288. (cat "Möchtest du die Dok-Dateien installieren ?"
  289. ))
  290.  
  291. (set #docs-help
  292. (cat "Die Dok-Dateien sind durch Konvertieren der Guide-Dateien "
  293.      "in ANSI Texte entstanden.\n"
  294.      "Wähle \"Ja\", wenn deine Version von Amigaguide die Online-Hilfe "
  295.      "nicht darstellen kann oder du die Dokumentation ausdrucken möchtest."
  296. ))
  297. (set #developer-msg
  298. (cat "Möchtest du die Entwicklerdateien installieren ?"
  299. ))
  300. (set #developer-help
  301. (cat "Die Entwicklerdateien sind für Leute interessant, welche XApps entwickeln wollen."
  302. ))
  303.  
  304. (set #camd-default
  305. (cat "Möchtest du die camd.library für den MIDI-Zugriff benutzen ?"
  306. ))
  307. (set #camd-help
  308. (cat "Der Installer hat die camd.library (Midi-Unterstützungsroutine) erkannt.\n"
  309.      "Wähle \"Ja\", wenn du diese als Standard nutzen möchtest.\n"
  310.      "Wähle \"Nein\", wenn du stattdessen das serial device nutzen möchtest.\n"
  311.      "Beachte, daß dies nur für die Standardeinstellungen von Interesse ist.\n"
  312.      "Die Einstellungen der Midi-Instrumente sind davon unabhängig.\n"
  313. ))
  314.  
  315. (set #help-sel
  316. (cat "Wähle eine oder mehrere Sprachen für die Online-Hilfe."
  317. ))
  318.  
  319. (set #doc-sel
  320. (cat "Wähle eine oder mehrere Sprachen für die Dok-Dateien."
  321. ))
  322.  
  323. (set #msg-mkdir
  324. (cat "Erstelle die Verzeichnisstruktur..."
  325. ))
  326.  
  327. (set #prg-sel
  328. (cat "Wähle die gewünschten Dateien."
  329. ))
  330.  
  331. (set #prg-help
  332. (cat "Falls du nicht registrierter Nutzer bist, kannst du nur Euterpe benutzen.\n"
  333.      "Die optimierten Versionen bleiben den registrierten Nutzern vorbehalten."
  334. ))
  335.  
  336. (set #metro-msg
  337. (cat "Sollen die Beispieldateien für Voice Metronome installiert werden ?"
  338. ))
  339.  
  340. (set #metro-help
  341. (cat "Zur Demonstration, wie Metronome-Instrumente zu benutzen sind, steht ein Beispiel,"
  342.      "welches die Schläge einer menschlichen Stimme zählt, zur Verfügung.\n"
  343.      "Wähle \"Ja\", falls es dich interessiert."
  344. ))
  345.  
  346. (set #rexx-msg
  347. (cat "Wähle die zusätzlich zu installierenden REXX-Skripte."
  348. ))
  349.  
  350. (set #rexx-help
  351. (cat "Die von Euterpe benötigten Skripte wurden bereits installiert. "
  352.      "Du kannst hier noch weitere auswählen, welche als Beispiele gedacht sind."
  353. ))
  354.  
  355. (set #cat-sel
  356. (cat "Wähle eine oder mehrere Sprachen für die Kataloge."
  357. ))
  358. (set #cat-msg
  359. (cat "Möchtest du die Übersetzerdateien installieren ?"
  360. ))
  361. (set #cat-help
  362. (cat "Diese Dateien sind für die Benutzung von Euterpe nicht notwendig, aber für die Übersetzung der Kataloge."
  363. ))
  364. ))
  365.  
  366. ; -------------------------------------------------------------------------
  367. ; path settings
  368. ; -------------------------------------------------------------------------
  369.  
  370. (set #installLoc (pathonly @icon)
  371.      #installEuterpe (tackon #installLoc "Euterpe")
  372.      #installInstruments (tackon #installEuterpe "Instruments")
  373.      #installRexx (tackon #installEuterpe "Rexx")
  374.      #installDeveloper (tackon #installLoc "Developer")
  375.      #installDocs (tackon #installLoc "Docs")
  376.      #installHelp (tackon #installLoc "Help")
  377.      #installFonts (tackon #installLoc "fonts")
  378.      #installCat (tackon #installLoc "Catalogs")
  379.      #installLibs (tackon #installLoc "Libs/AsyncIO.library")
  380.      #installOuiCat (tackon (tackon (tackon #installLoc "OUI_Catalogs") @language) "oui.catalog")
  381.      #targetOuiCat (tackon "LOCALE:Catalogs" @language)
  382.      #targetLibs "LIBS:"
  383. )
  384.  
  385. ; -------------------------------------------------------------------------
  386. ; intro
  387. ; -------------------------------------------------------------------------
  388.  
  389. (message #introduction)
  390. (welcome)
  391.  
  392. ; -------------------------------------------------------------------------
  393. ; destination settings
  394. ; -------------------------------------------------------------------------
  395.  
  396. (set #target (tackon (askdir (prompt #quel-disque)
  397.              (help #quel-disque-aide)
  398.              (default @default-dest)
  399.              (disk)
  400.              ) "Euterpe")
  401. )
  402. (makedir #target (infos))
  403.  
  404. ; -------------------------------------------------------------------------
  405. ; optional path settings
  406. ; -------------------------------------------------------------------------
  407.  
  408. (set #targetDeveloper (tackon #target "Developer"))
  409. (set #targetDocs (tackon #target "Docs"))
  410. (set #targetHelp (tackon #target "Help"))
  411. (set #targetInstruments (tackon #target "Instruments"))
  412. (set #targetRexx (tackon #target "Rexx"))
  413. (set #targetCat (tackon #target "Catalogs"))
  414. (set #targetFonts (tackon #target "fonts"))
  415.  
  416. (set @default-dest #target)
  417. (complete 10)
  418.  
  419. ; -------------------------------------------------------------------------
  420. ; main files copy
  421. ; -------------------------------------------------------------------------
  422.  
  423. (working #msg-mkdir)
  424. (makedir (tackon #target "Sequences") (infos))
  425. (makedir (tackon #target "Tracks") (infos))
  426. (makedir (tackon #target "Patterns") (infos))
  427. (makedir (tackon #target "Samples") (infos))
  428. (makedir (tackon #target "SoundBanks") (infos))
  429. (makedir (tackon #target "XApps") (infos))
  430. (makedir (tackon #target "XApps/BankEditors") (infos))
  431. (makedir (tackon #target "XApps/Effects") (infos))
  432. (makedir (tackon #target "Rexx") (infos))
  433. (makedir (tackon #target "Pictures") (infos))
  434. (makedir (tackon #target "Banks") (infos))
  435. (makedir (tackon #target "Icons") (infos))
  436. (makedir (tackon #target "Banks/Roland") (infos))
  437. (makedir (tackon #target "Banks/Roland/MT32") (infos))
  438. (makedir #targetFonts)
  439. (makedir #targetInstruments (infos))
  440. (makedir (tackon #targetInstruments "Midi") (infos))
  441. (makedir (tackon #targetInstruments "DrumKits") (infos))
  442. (makedir (tackon #targetInstruments "Audio") (infos))
  443. (makedir (tackon #targetInstruments "DrumAudio") (infos))
  444. (makedir (tackon #targetInstruments "Pictures") (infos))
  445. (makedir (tackon #targetInstruments "Texts") (infos))
  446. (makedir (tackon #targetInstruments "ARexx") (infos))
  447. (makedir #targetRexx (infos))
  448. (complete 20)
  449.  
  450. (copyfiles (source #installEuterpe)
  451.            (dest #target)
  452.            (pattern "Euterpe#?")
  453.            (infos)
  454.            (files)
  455.            (confirm)
  456.            (prompt #prg-sel)
  457.            (help #prg-help)
  458. )
  459. (complete 25)
  460. (copyfiles (source #installEuterpe)
  461.            (dest #target)
  462.            (pattern "Registration")
  463.            (infos)
  464.            (files)
  465. )
  466. (complete 30)
  467.  
  468. (if (askbool (prompt #metro-msg)
  469.             (help #metro-help)
  470.             (default 1)
  471.    )
  472. (
  473.     (copyfiles (source (tackon #installEuterpe "SoundBanks"))
  474.                (dest (tackon #target "SoundBanks"))
  475.                (pattern "#?")
  476.                (infos)
  477.                (files)
  478.     )
  479.     (copyfiles (source (tackon #installInstruments "DrumAudio"))
  480.                (dest (tackon #targetInstruments "DrumAudio"))
  481.                (pattern "Metronome")
  482.                (infos)
  483.                (files)
  484.     )
  485. ))
  486. (complete 35)
  487. (copyfiles (source #installRexx)
  488.            (dest #targetRexx)
  489.            (choices "default.muse" "shell.muse")
  490.            (infos)
  491.            (files)
  492. )
  493.  
  494. (complete 40)
  495. (copyfiles (source #installRexx)
  496.            (dest #targetRexx)
  497.            (pattern  "~(default|shell).muse")
  498.            (confirm)
  499.            (prompt #rexx-msg)
  500.            (help #rexx-help)
  501.            (infos)
  502.            (files)
  503. )
  504.  
  505. (copyfiles (source #installFonts)
  506.            (dest #targetFonts)
  507.            (all)
  508. )
  509.  
  510. (copyfiles (source (tackon #installEuterpe "Icons"))
  511.            (dest (tackon #target "Icons"))
  512.            (all)
  513. )
  514.  
  515. (copyfiles (source (tackon #installInstruments "Midi"))
  516.            (dest (tackon #targetInstruments "Midi"))
  517.            (pattern "#?")
  518.            (infos)
  519.            (files)
  520. )
  521. (copyfiles (source (tackon #installEuterpe "XApps/BankEditors"))
  522.            (dest (tackon #target "XApps/BankEditors"))
  523.            (pattern "#?")
  524.            (infos)
  525.            (files)
  526. )
  527. (copyfiles (source (tackon #installEuterpe "XApps/Effects"))
  528.            (dest (tackon #target "XApps/Effects"))
  529.            (pattern "#?")
  530.            (infos)
  531.            (files)
  532. )
  533. (complete 45)
  534.  
  535. ; -------------------------------------------------------------------------
  536. ; previous installation bug correction
  537. ; -------------------------------------------------------------------------
  538.  
  539. (if (exists "libs:asyncio.library/asyncio.library")
  540.     (
  541.       (message #fix-error-asyncio)
  542.       (rename "libs:asyncio.library" "libs:asynciodir" (safe))
  543.       (rename "libs:asynciodir/AsyncIO.library" "libs:AsyncIO.library" (safe))
  544.       (delete "libs:asynciodir" (optional (safe)))
  545.     )
  546. )
  547. (complete 50)
  548.  
  549. ; -------------------------------------------------------------------------
  550. ; asyncio installation
  551. ; -------------------------------------------------------------------------
  552.  
  553. (copylib (prompt #asyncio-prompt)
  554.          (source #installLibs)
  555.          (dest #targetLibs)
  556.          (confirm)
  557.          (help @copylib-help)
  558. )
  559. (complete 55)
  560.  
  561. ; -------------------------------------------------------------------------
  562. ; OUI catalogs installation
  563. ; -------------------------------------------------------------------------
  564.  
  565. (copylib (prompt #oui-prompt)
  566.          (source #installOuiCat)
  567.          (dest #targetOuiCat)
  568.          (confirm)
  569.          (optional nofail askuser)
  570.          (help @copylib-help)
  571. )
  572. (complete 60)
  573.  
  574.  
  575. ; -------------------------------------------------------------------------
  576. ; catalogs installation
  577. ; -------------------------------------------------------------------------
  578.  
  579. (set #cat-lang (askoptions (prompt #cat-sel)
  580.                 (help @askoptions-help)
  581.                 (choices "français" "deutsch")
  582. ))
  583.  
  584. (if (> #cat-lang 0)
  585.     (makedir #targetCat (infos))
  586. )
  587. (if (IN #cat-lang 0)
  588.     (
  589.         (set #lang-src (tackon #installCat "français"))
  590.         (set #lang-dst (tackon #targetCat  "français"))
  591.         (makedir #lang-dst)
  592.         (copyfiles (source #lang-src)
  593.                    (dest #lang-dst)
  594.                    (all)
  595.         )
  596.     )
  597. )
  598.  
  599. (if (IN #cat-lang 1)
  600.     (
  601.         (set #lang-src (tackon #installCat "deutsch"))
  602.         (set #lang-dst (tackon #targetCat  "deutsch"))
  603.         (makedir #lang-dst)
  604.         (copyfiles (source #lang-src)
  605.                    (dest #lang-dst)
  606.                    (all)
  607.         )
  608.     )
  609. )
  610.  
  611. (if (askbool (prompt #cat-msg)
  612.              (help #cat-help)
  613.              (default 0)
  614.     )
  615.     (copyfiles (source #installCat)
  616.                (dest #targetCat)
  617.                (pattern  "#?")
  618.                (infos)
  619.                (files)
  620.     )
  621. )
  622.  
  623. (complete 65)
  624.  
  625. ; -------------------------------------------------------------------------
  626. ; help installation
  627. ; -------------------------------------------------------------------------
  628.  
  629. (set #help-lang (askoptions (prompt #help-sel)
  630.                 (help @askoptions-help)
  631.                 (choices "english" "français" "deutsch")
  632. ))
  633.  
  634. (if (> #help-lang 0)
  635.     (makedir #targetHelp (infos))
  636. )
  637. (if (IN #help-lang 0)
  638.     (
  639.         (set #lang-src (tackon #installHelp "english"))
  640.         (set #lang-dst (tackon #targetHelp "english"))
  641.         (makedir #lang-dst (infos))
  642.         (copyfiles (source #lang-src)
  643.                    (dest #lang-dst)
  644.                    (all)
  645.         )
  646.     )
  647. )
  648. (if (IN #help-lang 1)
  649.     (
  650.         (set #lang-src (tackon #installHelp "français"))
  651.         (set #lang-dst (tackon #targetHelp "français"))
  652.         (makedir #lang-dst (infos))
  653.         (copyfiles (source #lang-src)
  654.                    (dest #lang-dst)
  655.                    (all)
  656.         )
  657.     )
  658. )
  659. (if (IN #help-lang 2)
  660.     (
  661.         (set #lang-src (tackon #installHelp "deutsch"))
  662.         (set #lang-dst (tackon #targetHelp "deutsch"))
  663.         (makedir #lang-dst (infos))
  664.         (copyfiles (source #lang-src)
  665.                    (dest #lang-dst)
  666.                    (all)
  667.         )
  668.     )
  669. )
  670. (complete 70)
  671.  
  672. ; -------------------------------------------------------------------------
  673. ; docs installation
  674. ; -------------------------------------------------------------------------
  675.  
  676. (if (askbool (prompt #docs-msg)
  677.             (help #docs-help)
  678.             (default 1)
  679.    )
  680.    (
  681.         (set #docs-lang (askoptions (prompt #doc-sel)
  682.                         (help @askoptions-help)
  683.                         (choices "english" "français" "deutsch")
  684.         ))
  685.  
  686.         (if (> #docs-lang 0)
  687.             (makedir #targetDocs (infos))
  688.         )
  689.         (if (IN #docs-lang 0)
  690.             (
  691.                 (set #lang-src (tackon #installDocs "english"))
  692.                 (set #lang-dst (tackon #targetDocs "english"))
  693.                 (makedir #lang-dst (infos))
  694.                 (copyfiles (source #lang-src)
  695.                            (dest #lang-dst)
  696.                            (all)
  697.                 )
  698.             )
  699.         )
  700.         (if (IN #docs-lang 1)
  701.             (
  702.                 (set #lang-src (tackon #installDocs "français"))
  703.                 (set #lang-dst (tackon #targetDocs "français"))
  704.                 (makedir #lang-dst (infos))
  705.                 (copyfiles (source #lang-src)
  706.                            (dest #lang-dst)
  707.                            (all)
  708.                 )
  709.             )
  710.         )
  711.         (if (IN #docs-lang 2)
  712.             (
  713.                 (set #lang-src (tackon #installDocs "deutsch"))
  714.                 (set #lang-dst (tackon #targetDocs "deutsch"))
  715.                 (makedir #lang-dst (infos))
  716.                 (copyfiles (source #lang-src)
  717.                            (dest #lang-dst)
  718.                            (all)
  719.                 )
  720.             )
  721.         )
  722.    )
  723. )
  724. (complete 80)
  725.  
  726.  
  727. ; -------------------------------------------------------------------------
  728. ; developer files installation
  729. ; -------------------------------------------------------------------------
  730.  
  731. (if (askbool (prompt #developer-msg)
  732.             (help #developer-help)
  733.             (default 0)
  734.    )
  735.    (
  736.         (makedir #targetDeveloper (infos))
  737.         (copyfiles (source #installDeveloper)
  738.                    (dest #targetDeveloper)
  739.                    (all)
  740.         )
  741.    )
  742. )
  743. (complete 90)
  744.  
  745. ; -------------------------------------------------------------------------
  746. ; assign Euterpe: now
  747. ; -------------------------------------------------------------------------
  748.  
  749. (makeassign "Euterpe" #target)
  750. (run "Assign FONTS: Euterpe:fonts ADD")
  751.  
  752. ; -------------------------------------------------------------------------
  753. ; camd tooltype setting
  754. ; -------------------------------------------------------------------------
  755.  
  756. (if (exists "LIBS:camd.library")
  757.     (if (askbool (prompt #camd-default)
  758.                  (help #camd-help)
  759.                  (default 1)
  760.         )
  761.         (set #camd-flag "TRUE")
  762.         (set #camd-flag "FALSE")
  763.     )
  764.     (set #camd-flag "FALSE")
  765. )
  766.  
  767. ; -------------------------------------------------------------------------
  768. ; ahi tooltype setting
  769. ; -------------------------------------------------------------------------
  770.  
  771. (if (exists "DEVS:ahi.device")
  772.     (if (askbool (prompt #ahi-default)
  773.                  (help #ahi-help)
  774.                  (default 1)
  775.         )
  776.         (set #ahi-flag "TRUE")
  777.         (set #ahi-flag "FALSE")
  778.     )
  779.     (set #ahi-flag "FALSE")
  780. )
  781.  
  782.  
  783.  
  784. (tooltype (dest "Euterpe:Euterpe")
  785.           (settooltype "USECAMD" #camd-flag)
  786.           (settooltype "USEAHI" #ahi-flag)
  787. )
  788. (complete 95)
  789.  
  790. ; -------------------------------------------------------------------------
  791. ; startup modifications
  792. ; -------------------------------------------------------------------------
  793.  
  794. (startup "Euterpe" (prompt #startup-prompt)
  795.          (help @startup-help)
  796.          (command (cat "Assign Euterpe: " #target "\n"
  797.          "Assign FONTS: Euterpe:fonts ADD"))
  798. )
  799. (complete 100)
  800.